From bed9b229de727049b04e78c34a416e95c534fe6f Mon Sep 17 00:00:00 2001 From: Stephen Berman Date: Fri, 25 Jul 2014 23:53:52 +0200 Subject: [PATCH] * calendar/todo-mode.el (todo-edit-item--next-key): If next key is not a character, ignore it instead of raising an error. --- lisp/ChangeLog | 5 +++++ lisp/calendar/todo-mode.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 607387bb4eb..096566c1564 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-07-25 Stephen Berman + + * calendar/todo-mode.el (todo-edit-item--next-key): If next key is + not a character, ignore it instead of raising an error. + 2014-07-25 Stephen Berman * calendar/todo-mode.el: Fix handling of marked items and make diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 60f798792d1..6a857a10fda 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -5551,8 +5551,8 @@ already entered and those still available." '(add/edit delete)) " comment")))) params " ")) - (this-key (char-to-string - (read-key (concat todo-edit-item--prompt p->k)))) + (this-key (let ((key (read-key (concat todo-edit-item--prompt p->k)))) + (and (characterp key) (char-to-string key)))) (this-param (car (rassoc this-key params)))) (pcase this-param (`edit (todo-edit-item--text)) -- 2.30.2